home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Directorytools / FileQuest 10 / Install_Français < prev    next >
Encoding:
Text File  |  1996-09-27  |  9.1 KB  |  411 lines
  1. ;
  2. ; /*
  3. ; **    $VER: Installation de FileQuest 1.0
  4. ; **
  5. ; **    Scripte "Installer" pour FileQuest.
  6. ; **/
  7.  
  8.         (set UserLevel.old @user-level)
  9.  
  10. ; Initialisation des messages.
  11.  
  12.         (set Language 16)
  13.  
  14.         (set #WrongKickStart "\nFileQuest ne fonctionne qu'avec un KickStart >= à 2.04.")
  15.  
  16.  
  17.  
  18. ; S'assurer que l'on utilise un KickStart >= à 2.04.
  19.  
  20.         (if (< (/ (getversion) 65536) 37)
  21.           (abort #WrongKickStart)
  22.         )
  23.  
  24. ; /*
  25. ; **    Textes d'aides
  26. ; **/
  27. (set LangueHelp "Choisissez dans quelle langue vous voulez la documentation.")
  28.  
  29. (set IconHelp "Choisissez dans quel format vous-voulez vos icônes:\n\n- 4 couleurs:          Icônes standards\n- 8 couleurs MagicWB : Standard MagicWB" )
  30.  
  31. (set bguiHelp "La bgui.library est une library facilitant la création d'interface et offrant de plus belle interface\n\nbgui.library   (C) 1993-1996 Jan van den Baard" )
  32.  
  33. (set screennotifyHelp "screennotify (C) Stejan Becker.\nElle n'est pas obligatoire, elle permet de fermer FileQuest quand le workbench le demande." )
  34.  
  35. (set SaveAssign "Un assign FileQuest: sera rajouter dans la user-startup. Cette assign est necessaire au fonctionnement de FileQuest.")
  36.  
  37. (set DefConfig "Choix d'une configuration déjà faite" )
  38.  
  39.  
  40. ;
  41. ; Répertoire de destination
  42. ; *************************
  43. ;
  44. (set Path.source (pathonly @icon) )
  45.  
  46. (set  Path.dest
  47.     (askdir
  48.         (prompt "\nSélectionner un chemin dans lequel sera installé FileQuest (un répertoire 'FileQuest' sera crée).\n")
  49.         (help @askdir-help)
  50.         (default "Sys:")
  51.     )
  52. )
  53.  
  54. ; Création du répertoire
  55. ; **********************
  56.  
  57. (set Path.dest (tackon Path.dest "FileQuest"))
  58. (makedir Path.dest (infos) )
  59.  
  60.  
  61. ; Copie des executables
  62. ; *********************
  63.  
  64. (copyfiles
  65.         (prompt "Copie de FileQuest")
  66.         (help @copyfiles-help)
  67.         (source Path.source)
  68.         (dest Path.dest)
  69.         (choices "FileQuest" "FileQuest.info")
  70. )
  71.  
  72. (set ConfigPath (tackon Path.dest "Config"))
  73. (makedir ConfigPath (infos))
  74.  
  75. (copyfiles
  76.         (prompt "Copie de ConfigFileQuest")
  77.         (help @copyfiles-help)
  78.         (source Path.source)
  79.         (dest ConfigPath)
  80.         (choices "Config/ConfigFileQuest" "Config/ConfigFileQuest.info")
  81. )
  82.  
  83.  
  84.  
  85. ; Copie du catalogs Français
  86. ; **************************
  87. ;
  88. (set CatPath (tackon Path.dest "catalogs"))
  89. (makedir CatPath)
  90. (set CatPath (tackon Path.dest "catalogs/français"))
  91. (makedir CatPath)
  92.  
  93. (copyfiles
  94.     (prompt "Copie du catalogs de FileQuest")
  95.     (source Path.source)
  96.     (dest CatPath)
  97.     (choices "catalogs/français/FileQuest.catalog")
  98. )
  99.  
  100.  
  101. (set CatPath (tackon ConfigPath "catalogs"))
  102. (makedir CatPath)
  103. (set CatPath (tackon ConfigPath "catalogs/français"))
  104. (makedir CatPath)
  105.  
  106. (copyfiles
  107.     (prompt "Copie du catalogs de ConfigFileQuest")
  108.     (source Path.source)
  109.     (dest CatPath)
  110.     (choices "Config/catalogs/français/ConfigFileQuest.catalog")
  111. )
  112.  
  113.  
  114.  
  115. ; Copie du répertoire Extras
  116. ; **************************
  117. (copyfiles
  118.     (prompt "Copie des utilitaires de FileQuest")
  119.     (source Path.source)
  120.     (dest   (tackon Path.dest "Extras"))
  121.     (choices "Extras/")
  122. )
  123.  
  124. (copyfiles
  125.     (prompt "Copie des utilitaires de FileQuest")
  126.     (source Path.source)
  127.     (dest   Path.dest)
  128.     (choices "Extras.info")
  129. )
  130.  
  131.  
  132. ; Copie de la Thinpaz.font
  133. ; ************************
  134.  
  135. (copyfiles
  136.     (prompt "Copie de la Thinpaz.font")
  137.     (source Path.source)
  138.     (dest   "Fonts:")
  139.     (choices "Fonts/Thinpaz" "Fonts/Thinpaz.font")
  140. )
  141.  
  142.  
  143.  
  144. ; Copie de la documentation
  145. ; *************************
  146. ;
  147. (set Doc (askchoice
  148.             (prompt "Documentation de FileQuest")
  149.             (choices "Française" "Anglaise" )
  150.             (help LangueHelp)
  151.             (default 0)
  152.  
  153.     )
  154. )
  155.  
  156.  
  157.     (if (= Doc 0)
  158.         (copyfiles
  159.             (source "FileQuest_FR.guide")
  160.             (dest Path.dest)
  161.             (newname "FileQuest.guide")
  162.             (infos)
  163.         )
  164.     )
  165.  
  166.     (if (= Doc 1)
  167.         (copyfiles
  168.             (source "FileQuest_ENG.guide")
  169.             (dest Path.dest)
  170.             (newname "FileQuest.guide")
  171.             (infos)
  172.         )
  173.     )
  174.  
  175.  
  176.  
  177. ; On copie les icônes
  178. ; *******************
  179. ;
  180. (set Icon (askchoice
  181.             (prompt "Quel type d'icône voulez-vous utiliser ?")
  182.             (choices "4 couleurs" "MagicWB" )
  183.             (default 1)
  184.             (help IconHelp)
  185.     )
  186. )
  187.  
  188.     ; 4 couleurs ?
  189.     ; **********
  190.     (if (= Icon 0)
  191.     (
  192.         (copyfiles
  193.             (source "Icons/FileQuest.info")
  194.             (dest Path.dest)
  195.             (newname "FileQuest.info")
  196.         )
  197.  
  198.         (copyfiles
  199.             (source "Icons/Guide.info")
  200.             (dest Path.dest)
  201.             (newname "FileQuest.guide.info")
  202.         )
  203.  
  204.         (copyfiles
  205.             (source "Icons/ConfigFileQuest.info")
  206.             (dest ConfigPath)
  207.             (newname "ConfigFileQuest.info")
  208.         )
  209.  
  210.     )
  211.     )
  212.  
  213.  
  214.  
  215.  
  216. ; Copie de la bgui.library
  217. ; ************************
  218. (copylib
  219.     (prompt "Copie de la bgui.library")
  220.     (source "libs/bgui.library")
  221.     (dest "Libs:")
  222.     (help bguiHelp)
  223.     (confirm)
  224. )
  225.  
  226. ; Copie de la screennotify.library
  227. ; ********************************
  228. (copylib
  229.     (prompt "Copie de la screennotify.library")
  230.     (source "libs/screennotify.library")
  231.     (dest "Libs:")
  232.     (help screennotifyHelp)
  233.     (confirm)
  234. )
  235.  
  236.  
  237.  
  238. ; Configuration par defaut
  239. ; ************************
  240. (set Config (askchoice
  241.                 (prompt "Quel configuration préparé voulez-vous ?")
  242.                 (choices "HIRES Français" "ENTRELACEE Français" "HIRES English" "LACE English")
  243.                 (help DefConfig)
  244.                 (default 0)
  245.         )
  246. )
  247.  
  248. (set DestName (tackon Path.dest "Config"))
  249.  
  250.     ; /*
  251.     ; **    Backup old file
  252.     ; **/
  253.     (rename (tackon DestName "FileQuest.Prefs") (tackon DestName "FileQuest.Prefs.OLD"))
  254.     (rename (tackon DestName "FileQuest.FileTypes") (tackon DestName "FileQuest.FileTypes.OLD"))
  255.     (rename (tackon DestName "FileQuest.PopupMenu") (tackon DestName "FileQuest.PopupMenu.OLD"))
  256.  
  257.  
  258.  
  259.     ; HIRES Français
  260.     ; **************
  261.     ;
  262.     (if (= Config 0)
  263.     (
  264.         (copyfiles
  265.             (source "Config/Prefs_Storage/FileQuest.Prefs.HIRES.FR")
  266.             (dest DestName)
  267.             (newname "FileQuest.Prefs")
  268.         )
  269.         (copyfiles
  270.             (source "Config/Prefs_Storage/FileQuest.PopupMenu.FR")
  271.             (dest DestName)
  272.             (newname "FileQuest.PopupMenu")
  273.         )
  274.         (copyfiles
  275.             (source "Config/Prefs_Storage/FileQuest.FileTypes.FR")
  276.             (dest DestName)
  277.             (newname "FileQuest.FileTypes")
  278.         )
  279.     )
  280.     )
  281.  
  282.     ; HIRES LACE
  283.     ; **********
  284.     ;
  285.     (if (= Config 1)
  286.     (
  287.         (copyfiles
  288.             (source "Config/Prefs_Storage/FileQuest.Prefs.LACE.FR")
  289.             (dest DestName)
  290.             (newname "FileQuest.Prefs")
  291.         )
  292.         (copyfiles
  293.             (source "Config/Prefs_Storage/FileQuest.PopupMenu.FR")
  294.             (dest DestName)
  295.             (newname "FileQuest.PopupMenu")
  296.         )
  297.         (copyfiles
  298.             (source "Config/Prefs_Storage/FileQuest.FileTypes.FR")
  299.             (dest DestName)
  300.             (newname "FileQuest.FileTypes")
  301.         )
  302.     )
  303.     )
  304.  
  305.     ; HIRES English
  306.     ; *************
  307.     ;
  308.     (if (= Config 2)
  309.     (
  310.         (copyfiles
  311.             (source "Config/Prefs_Storage/FileQuest.Prefs.HIRES.ENG")
  312.             (dest DestName)
  313.             (newname "FileQuest.Prefs")
  314.         )
  315.         (copyfiles
  316.             (source "Config/Prefs_Storage/FileQuest.PopupMenu.ENG")
  317.             (dest DestName)
  318.             (newname "FileQuest.PopupMenu")
  319.         )
  320.         (copyfiles
  321.             (source "Config/Prefs_Storage/FileQuest.FileTypes.ENG")
  322.             (dest DestName)
  323.             (newname "FileQuest.FileTypes")
  324.         )
  325.     )
  326.     )
  327.  
  328.     ; HIRES Lace English
  329.     ; ******************
  330.     ;
  331.     (if (= Config 3)
  332.     (
  333.         (copyfiles
  334.             (source "Config/Prefs_Storage/FileQuest.Prefs.LACE.ENG")
  335.             (dest DestName)
  336.             (newname "FileQuest.Prefs")
  337.         )
  338.         (copyfiles
  339.             (source "Config/Prefs_Storage/FileQuest.PopupMenu.ENG")
  340.             (dest DestName)
  341.             (newname "FileQuest.PopupMenu")
  342.         )
  343.         (copyfiles
  344.             (source "Config/Prefs_Storage/FileQuest.FileTypes.ENG")
  345.             (dest DestName)
  346.             (newname "FileQuest.FileTypes")
  347.         )
  348.     )
  349.     )
  350.  
  351.  
  352.  
  353.  
  354.  
  355. ; Parametrage du programme
  356. ; ************************
  357.  
  358. ; On prend le chemin de destination et le nom
  359. (set DestName (tackon Path.dest "FileQuest"))
  360.  
  361.  
  362. ; ************
  363. ; * TOOLTYPE *
  364. ; ************
  365. (set Icon (askchoice
  366.             (prompt "Vous voulez toujours avoir un AppIcon sur le Workbench ?")
  367.             (choices "Oui" "Non")
  368.             (help Refresh)
  369.     )
  370. )
  371.  
  372.     (if (= Icon 0)
  373.         (tooltype
  374.             (settooltype "APPICON" "YES")
  375.             (dest DestName)
  376.         )
  377.     )
  378.  
  379.     (if (= Icon 1)
  380.         (tooltype
  381.             (settooltype "APPICON" "NO" )
  382.             (dest DestName)
  383.         )
  384.     )
  385.  
  386.  
  387. ; **********************
  388. ; * Assigne FileQuest: *
  389. ; **********************
  390.  
  391. (set Icon (cat "c:Assign FileQuest: " Path.dest) )
  392.  
  393. (startup "FileQuest"
  394.     (prompt "Sauvegarde l'assignation du répertoire de FileQuest" )
  395.     (command Icon )
  396.     (help SaveAssign)
  397. )
  398.  
  399. (makeassign "Filequest" Path.dest)
  400.  
  401.  
  402. ; /*
  403. ; **    This is THE END...
  404. ; **/
  405. (message "Lisez la documentation pour toutes les options et possiblités.")
  406.  
  407.  
  408. (set @default-dest Path.dest )
  409.         (exit)
  410.  
  411.